home *** CD-ROM | disk | FTP | other *** search
/ PC World 2001 July / PCWorld_2001-07_cd.bin / Software / Vyzkuste / xsetup / setup.exe / {app} / plugins / XQ WMP 1.xpl < prev    next >
Encoding:
XSetup plugin  |  2001-02-10  |  1.1 KB  |  52 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="1"
  3. "COUNT"="1"
  4. "UIPATH 1"="Program Options\Built in Windows Apps\Windows Media Player"
  5. "UIPATH 2"="Internet\Windows Media Player"
  6. "NAME"="Window Title"
  7. "LANGUAGE"="VBScript"
  8. "VERSION"="1.22"
  9. "TEXT 1"="Title"
  10. "DESCRIPTION 1"="You can change the title of the WMP window here."
  11. "DESCRIPTION 2"="To have to original title again, clear the field and press "Apply"."
  12. "AUTHOR"="Xteq Systems"
  13. "CONTACTURL"="http://www.xteq.com"
  14. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  15. "COMMENT 1"=" "
  16.  
  17.  
  18. sPath="HKCU\Software\Policies\Microsoft\WindowsMediaPlayer\"
  19. sValue="TitleBar"
  20.  
  21. Sub Plugin_Initialize 
  22.  s=RegReadValue(sPath & sValue)
  23.  SetUIElement 1,s
  24. End Sub
  25.  
  26.  
  27. Sub Plugin_CheckData(ElementIndex)
  28. End Sub
  29.  
  30.  
  31.  
  32. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  33.  s=GetUIElement(1)
  34.  
  35.  if len(s)=0 then
  36.   'If values exists, delete it
  37.   s=RegReadValue(sPath & sValue)
  38.   if IsEmpty(s)=false then
  39.    Call RegDeleteValue(sPath & sValue)
  40.   end if
  41.  else
  42.   Call RegWriteValue(sPath & sValue,s,1)
  43.  end if
  44. End Sub
  45.  
  46.  
  47. Sub Plugin_Terminate 
  48. End Sub
  49.  
  50.  
  51.  
  52.